home *** CD-ROM | disk | FTP | other *** search
/ ETO Development Tools 2 / ETO Development Tools 2.iso / Tools - Objects / ResEdit / ResEdit 2.0b2 / Examples / CExamples / Source / ICON.LDEF.c next >
Encoding:
C/C++ Source or Header  |  1990-04-02  |  1.8 KB  |  66 lines  |  [TEXT/MPS ]
  1. /*
  2.  COPYRIGHT (C) 1984-1990 Apple Computer,Inc.
  3.  All rights reserved
  4. */
  5.  
  6. #include    <types.h>
  7. #include    <memory.h>
  8. #include    <menus.h>
  9. #include    <resources.h>
  10. #include    <lists.h>
  11. #include    <ToolUtils.h>
  12.  
  13. #include    "ResEd.h"
  14.  
  15. #define IconSize 128
  16. #define cellInset 8
  17.  
  18. pascal void DrawIcon (Rect *lRect, Handle theIcon)
  19.  
  20. {
  21. PlotIcon(lRect, theIcon);
  22. }
  23.  
  24. /* This routine simply looks up in the list at the given cell, extracts the ID and
  25.     gets the resource called for.  Returns NIL if not found.  Note, this assumes
  26.     the resfile is set up correctly.
  27.     NOTE:  This is used by both ICON and ICN# pickers. */
  28. Handle IconFetch (Cell lCell, ListHandle lHandle, short *id)
  29. {
  30.     short     len = 2;
  31.     short        saveResFile;
  32.     Handle    tempH;
  33.     
  34.     tempH = NULL;
  35.     saveResFile = CurResFile();
  36.     UseResFile ((*((PickHandle)(*lHandle)->refCon))->rNum);
  37.  
  38.     LGetCell((Ptr)id, &len, lCell, lHandle);            /* Get the ID from the list.    */
  39.     if (len == 2) {                                                                /* ID must be 2 bytes.                */
  40.         /* Load the resource since we want to draw it.                                                         */
  41.         tempH = Get1Res((*((PickHandle)((*lHandle)->refCon)))->rType, *id);
  42.         
  43.         if (SizeResource(tempH) >= IconSize)
  44.             return tempH;
  45.         }
  46.     UseResFile (saveResFile);
  47.     return tempH;
  48. }
  49.  
  50. /* This is the custom drawProc for the list (which contains the resource ID's).  It
  51.     simply draws the icon in the given rect and frames a selection rect around it (if
  52.     necessary). */
  53. pascal void  DrawCell(short message, Boolean lSelect, Rect *lRect, Point lCell,
  54.                            short lDataOffset, short lDataLen, ListHandle lHandle)
  55. {
  56.     Handle theIcon;
  57.     short id;
  58.     
  59.     #pragma    unused (lDataOffset, lDataLen)    /* Not needed here.                                */
  60.  
  61.     if ((message == lDrawMsg) || (message == lHiliteMsg)) {
  62.         theIcon = IconFetch(lCell, lHandle, &id);
  63.         DrawLDEF (message, lSelect, lRect, theIcon, id, "\p", 32, 32, DrawIcon, lHandle);
  64.         }
  65. }
  66.